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Herselt, oct "BA 


Beste Leden, 


De kalender meldt weer tal van activiteiten gedurende de volgende maanden: 


20 october : DAI-dag te Mijvel (B) 

17 november : HCC-dag te Utrecht (NL) 

24 november : onderwijs-symposium te Diepenbeek (B) 
? april '85 : HCC-dag Belgie te Deurne (B) 

? april ?85 : DAInamic-dag te Westerlo (В) 


We hopen dat dit lijstje nog uitgebreid wordt met de opening van ons nieuw 
lokaal (op het redactieadres), onze huidige werkplaats te Westmeerbeek is echt 
te eng aan het worden.We zullen dan ook de mogelijkheid hebben om regelmatig het 
lokaal open te stellen voor leden die eens willen langs komen voor informatie, 
software of zomaar een gesprekje... Door de dag in Nijvel is ook de verzending 
van dit nummer een week vervroegd , nog zo’n inhaalmanoeuver en onze publicatie 
verschijnt weer op tijd ' Op de voorpagina van dit nummer kijkt Nico Looije U 

ernstig aan : deze foto is een van de eerste resultaten met de Video Camera 
Interface. Spijtig genoeg zijn momenteel de experimenten gestopt door een panne 
aan het apparaatje. Voor alle duideli jkheid : we hebben de interface gekocht 
bij de firma ENTRAC bv te Diemen en Nico heeft op zeer korte tijd de nodige 
software geschreven. (bij het apparaat worden alleen programma’s voor de ВВС 
geleverd. ) 


Tot op een van de volgende manifestaties ... 
Dear members, 


Above you see the list of manifestations during the coming months. We also hope 
to announce soon the oficial opening of our new workshop. Did you notice that 
this issue is one week earlier in your mailbox? On the cover you find Nico 
Looije staring at you through our Video Camera Interface , for the moment there 
are some problems with the unit but you will sure find the whole story and 
software description in one of the coming issues. In this issue another 3 new 
software titles from our library : this should bring the total number of 
packages on 80 (take an average of 5 titles per collection : this means 400 
programs available now !) the new titles and prices : 


GAMES 13 : 750 Bfr (900 Bfr on DCR) 
GAMES 14 (PUZZLE 1) : 750 Bfr (900 Bfr on DCR) 
HELP (8.0.85. HELI) : 1750 Bfr (from DIALOGUE) 


Through contact with the German club, the HCC-DAI users group and the local 
clubs in Liege,Namur and Brussels , we have a lot of articles available , but 
translation to English should be done : please contact us if you can translate 
from Dutch,French or German to English, your efforts will be rewarded with free 
software ! 


We hope to meet you on one of the coming shows ... 


d JU. 


*REMARK* DAInamic 84 - 24 275 





sapuor woo arfa aput axa do jo 
тое Беш айий жер ү пин 
IIIIN aq 9204) Soter 


783004 
یوم 


ОА 


`зэләйзт\ ap cea 907070221201 2f 


INHOUD — CONTENTS 


NEWSLETTER = 


275 Remark Redaction 
276 Bladwijzer - contents 
277 Progr ammeer technieken F.Druijff 
282 NEW SOFTWARE : F.Druijff 

- Games Collection 13 

- Puzzle Collection 1 
283 Cursus microprocessoren A.Beuckelaers 
293 How to use an external interrupt J.Boerrigter 
294 Jeroen Demo 2 : birthday d.Üvervoorde 
296 Cryptowriter F.Verberckmoes 
501 Numbers up P. Maertens 
303 пір : 8080 multiply & divide Electronics 
305 Calculus F.Lemoine 
368 Omlaagroetsjen op kwartcirkel T. Berx 
309 Shapes D. De Boeck 
311 Humor in de klas B. Van Rompaey 
312 The Ultimate Video Game Computer Systems 
315 t Remark 17 UK 

t Videotex in Belgium UK 

316 t Programming techniques UK 
319 t DAI - SDK-85 UK 
320 t INDATA news - Azerty keyboard UK 
321 info stargazers C.Poels 
322 adv. Mikroshop Hagel апа 
323 D-BASIC part 3 : extensions W.Coremans 
331 memorymap MODE 1/2 W.Hermans 
332 Laok-out A.Gios 
333 Upper to Lower case : demo C.De Bont 
334 Print routines in DAI J.Boerrigter 
338 8080 assembler tables F.Couwberghs 





DAInamic subscription rates : 


Benelux : 1000 Bfr 


argos *34409010] ‘Mp GRA үәрреш оор uge path Se Joa» Geo 


unua moga тожэ ро (uu so myom чохбоюүй "упай (е ‘usoj Kov m poonposda aq (eu фоод еҷ Jo ued oN 


Europe : 1100 Bfr 
Outside Europe 1500 Bfr 
(Air Mail) 
pay to : Dainamic SUBSCRIPTIONS 
B.Van rompaey # by check or 
276 DAInamic Bovenbosstraat 4 + оп Bancaccount nr 230-0045353-74 
3044 HAASRODE-BELGIUM of Generale Bank Leuven c/o DAInaaic 








| P ROG FR АМ F E E FF T E C H N I E K E м. 
Na MODE д wil ik! nu deze keer een aantal ‘onderwerpen de revue haten passeren 
die daar nauw mee samenhangen. Als eerste wil ik de PRINT-instructie bekijken. 
Het woord "PRINT? is voor veel computergebruikers eigenlijk al niet meer cor- 
cect. Vroeger (15 а 20 jaar geleden ?) droomde men alleen maar van een beeld- 
scherm dat door de computer zou worden aangestuurd. Nee, in de hobbysfeer, dwz 
betaalbaar met minder dan een jaarsalaris kon U de uitkomsten van uw computer 
alleen maar op papier krijgen. Vaak was de printer, die werd gebruikt dan ook 
nog alleen maar een soort telstrook met een matige drukkwaliteit. Maar om iets 
te zien te krijgen (op papier dus) was de instructie 'PRINT' logisch. Zou men 
BASIC nu schrijven zou het mogelijkerwijs iets als 'SHOW' of 'DISPLAY' gewor- 
den zijn. Later in de geschiedenis kreeg men betere en snellere printers en 
kwam ook het beeldscherm. Nu ontstond echter de behoefte om de eventueel ook 
aangesloten printer niet altijd te laten meewerken. Vele fabrikanten losten 
dit op door de printer altijd uit te zetten en alleen te laten werken bij op- 
drachten die daar zelf om vroegen. 








М.В. Eigenlijk wordt niet de printer uitgezet, maar krijgt de printer geen 
signalen van de computer meer door via zijn aansluiting. 


Zo kreeg men naast PRINT de LPRINT en naast LIST de LLIST. Deze methode heeft 
echter het nadeel dat het programma niet simpel met of zonder printer gebruikt 
kan worden. Veel gebruikers programmeerden dan ook vaak met gebruik van prin- 
ter en zetten de printer zelf dan af om geen papier te verspillen. Bij de DAI 
heeft men gelukkig niet voor deze oplossing gekozen. Er is gekozen voor de 
volgende oplossings de DAI heeft adres #131 waarin een waarde staat. Deze 
waarde geeft aan waar de 'OUTPUT' heen moet, zie de tabel hieronder, 


SS" 


#131 = û - - uitvoer naar beeld en RS 232 

#131 = 1 - - uitvoer naar beeld 

#131 = 2 - - uitvoer naar de EDIT-buffer 

#131 = 3 - - uitvoer volgens een speciale routine 


deze routine kan eventueel zelf geschreven worden 
elke waarde tussen 3 en 256 heeft hetzelfde effect. 





Uit bovenstaand overzicht blijkt al dat het in de meeste gevallen het handigst 
is de printer via de serieele RS 232 poort aan te sluiten; daar de printer dan 
met een eenvoudige POKE #131,1 kan worden losgekoppeld en met een POKE %151,0 
weer aangekoppeld. Wilt U de printer zelf toch liever parallel aansturen is er 
altijd een goedkope interface te koop die het seriele signaal omzet in een pa- 
rallel signaal. Daarbij blijft de DCE-bus die signalen parallel uitstuurt vrij 
voor b.v. floppy of DCR. Toch hebben meerdere DAI-gebruikers gekozen voor een 
aansluiting via de DCE-bus. De POKE #131,3 wordt gebruikt door de DAI-floppy, 
die met deze POKE de uitvoer door een routine in de DOS laat verzorgen. Dat 
wat uitgevoerd moet worden geeft de gebruiker zelf op in een PRINT tussen de 
dubbele quotes. ("uit te voeren opdracht") 

Lastig is dit wel : eerst de uitvoer (van de PRINT's) de goede kant opzetten, 
dan de opdracht zelf in een PRINT geplaatst en dan meestal de uitvoer weer te- 
rugzetten naar beeld en/of RS 232. Voor mensen, die het leuk lijkt eens wat te 
experimenteren met een zelf geschreven outputroutine nog wat nadere gegevens. 
Als U een POKE #131,3 geeft dan zal de output verzorgt worden door een CALL 
naar de DOUTC op #2DD. Op dit adres staat initieel #C9 ( = RETURN). We kunnen 
dit echter veranderen in een sprong naar een eigen routine. We zetten C3 90 03 
( of iets soortgelijks) op #2DD,#2DE en #2DF en laten onze routine dan begin- 
nen op #300. De routine moet dan wel eindigen met een RETURN (=С9). 





Jammer genoeg is het niet direct mogelijk de output alleen naar RS 232 te stu- 
ren. Een handige toepassing zou ik daarvoor al kunnen geven. Als we een stuk 
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machinetaal willen testen kunnen we met L (van LOOK) een aantal gegevens (re- 
gisters) bijhouden, daar de inhoud op het scherm gezet wordt. Daardoor kunnen 
we in splitmode komen te werken en kan het programma, alleen al daardoor, ver- 
keerd werken. Sturen we nu de gegevens van L alleen naar de printer (dwz DCE- 
bus / RS 232) wordt ons beeld niet vernield door de L. Iets soortgelijks geldt 
in BASIC bij gebruik van de TRON - instructie. In BASIC wordt weliswaar alles 
correct uitgevoerd, maar in de noodgedwongen splitmode is niet altijd alles te 
zien. Als iemand zich geroepen voelt dit uit te werkenj er is bij voorbaat een 
plaatsje op de volgende TOOLKIT en/of volgend tijdschrift ingeruimd. 


tek Als u bij een listing duidelijk wilt laten zien van welk type elke Sex 
TIP variabele is moet U eens voordat U LIST geeft eerst de implicit type TIP 
жеж table vullen met #89 door in Utility in te tikken F275 28E 86[return]*«« 


In de rest van mijn verhandeling ga ik uit van een standaard MODE @ tenzij an- 
ders vermeld. Uitvoer start altijd op die positie , waar de cursor zich op dat 
moment bevindt. Wordt bij uitvoer naar scherm meer tekst aangeboden dan op de 
regel past waar we aan het printen zijn wordt automatisch naar de volgende re- 
gel gegaan. Het afdrukken wordt dan hervat na een C op de eerste positie van 
die volgende regel gevolgd door zes spaties. Deze automatische continuering op 
de volgende regel geschiedt slechts drie maal achtereen. Hieruit volgt dat het 
maximale aantal tekens dat met een PRINT naar het scherm kan worden uitgevoerd 
4x 60 — 5 x 7 = 240 - 21 = 219 bedraagt. Dit kan wel eens tot problemen lei- 
den om dat we in de EDIT - buffer wel 256 tekens op een regel kunnen krijgen. 
Bij terugkomst uit EDIT krijgen we dan "LINE TOO COMPLEX’. Overigens kunt U na 
256 posities wel degelijk verder de EDIT - buffer vullen, maar er is dan niets 
van op het scherm te zien. Willen we meer dan drie C - regels moeten we op 97B 
de DAI misleiden door daar steeds weer nul (evt 1 of 2) in te plaatsen. 


De cursorpositie is horizontaal van links naar rechts genummerd van © t/m 59, 
Verticaal van onder naar boven van @ t/m 23. Dit alles voor de normale MODE 9, 


in de splitmodes horizontaal gelijk aan MODE ©, maar verticaal van onder naar 
boven van @ t/m 3. 


Hoe kunnen we nu de PRINT gebruiken ? Ik loop de verschillende mogelijkheden 
eens met U na. | 


PRINT А met ñ is variabele. Deze variabele mag gevolgd worden door een 


typeaanduiding : ! (Floating PoinT) s% (INTeger) of $ (STRing). 
Dit is echter niet nodig. 


PRINT "tekst" de tekst, die tussen de dubbele quotes (") staat wordt nu uit- 
gevoerd. 


б + Dit zijn symbolen die bij PRINT gebruikt kunnen worden. 


Het teken » (komma) kunnen we achter de output (tekst of variabele) zetten. De 
cursor zal in dat geval de volgende TAB - positie opzoeken. De standaard TAB- 
posities zijn @,12,24,36 en 48. Voor zover mij bekend, zijn deze posities niet 
door de gebruiker te wijzigen. Er is echter nog iets bijzonders op te merken 
over deze cursorverplaatsing. Staat de cursor op x-positie @ dan blijft hij 
daar op staan, staat hij op 12,24,36 of 48 gaat hij in dat geval naar 24,50,48 
of @. Inderdaad 0; de С wordt іп dit geval niet gebruikt еп het aantal regels 
is niet beperkt. In dit geval zit er dus altijd minstens een spatie tussen de 
output's. Om dit te controleren moet U de volgende twee programa’s maar eens 
intikken. 


19 FOR I=1 TO 100:PRINT "abc",:NEXT 


19 FOR I=1 TO 10@:PRINT "123456789012",:NEXT 
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U zult overigens zien dat als U in bovenstaande voorbeelden PRINT I, zou opge- 
ven er schijnbaar niet op positie 0 wordt begonnen. Getallen worden echter af- 
gedrukt met een min (-) ervoor als ze negatief zijn, de plus als ze positief 
zijn wordt echter weggelaten. Er mag overigens best output gegeven worden van 
meer dan 12 karakters. Na afdrukken wordt de cursor verplaatst naar de volgen- 
de TAB-positie, tenzij die toevallig op @ stond. 


Het teken ; (puntkomma) kunnen we achter de output (tekst / variabele) zetten. 
De cursor zal in dat geval blijven staan. De output, die erna komt, zal er dan 
direct achter worden gezet. Wordt in dit geval het einde van de regel bereikt 
zal er wel met een continueringsregel (dwz een C en zes spaties) worden door- 
gegaan. Zonder de POKE #78, zullen er dan ook maar drie vervolgregels kunnen. 
De POKE %7В,0 moet wel steeds ververst worden. 


ХХХ POKE %7В,09:ҒОК Ізі TO 100:PRINT I$:NEXT is fout. 


XXX FOR I=1 TO 100:PRINT Ij:POKE %7В,0:МЕХТ is goed. 


Merk op dat de getallen schijnbaar gescheiden worden door een spatie . In wer- 
kelijkheid zijn het allemaal onderdrukte plussen. 


Het teken + (plus) kan alleen gebruikt worden tussen twee outputs in die van 
hetzelfde type zijn. Getallen worden opgeteld en bij teksten heeft het schijn- 
baar dezelfde functie als de puntkomma. Als U de volgende voorbeelden inkijkt 
zult U mogelijk geen verschil ontdekken; dan maar intikken en RUN geven. 


19 PRINT "АВ"; "123456" & 20 PRINT "AB"+"123456" 
3e AS="CBA":C=123456:PRINT A$jC & 40 Dës "СВА": С=123456:РКІМТ A$+C 
50 PRINT “ABCDEF"$ "1234567" & Gë PRINT "ABCDEF"*"1234567" 


Еп weet U de verschillen ? Bij intikken blijkt dat regel 40 domweg niet kan en 
we krijgen een ТҮРЕ MISMATCH. Goed, пи geven we RUN. Regel 10 en 20 doen 
schijnbaar hetzelfde evenals 50 en 60. Bij regel 36 staat er ineens een spatie 
tussen tekst en getal. Na enig nadenken begrijpen we, dat bij de overige re- 
gels er twee teksten staan en bij regel 36 staat na de tekst een getal en dat 
begint met een onderdrukte plus, dus spatie. Maar ook tussen 10 en 20 is een 
verschil. Geef maar eens CLEAR 6 en dan RUN. U zult zien 19 wordt uitgevoerd 
maar 20 niet en U krijgt de melding OUT OF STRING SPACE. Pas na een CLEAR 12 
of een groter getal zal ook regel 20 worden uitgevoerd, Is de CLEAR echter nog 
kleiner dan 22 zal nu regel 60 niet uitgevoerd worden. Het vermoeden is dus 
gerechtvaardigd dat we met de '*' de HEAP gebruiken en met de 7%” niet. Laten 
we eens kijken in de HEAP. Op #29B en #29C vinden we standaard #EC en 92 waar- 
mee aangegeven wordt dat de HEAP op #2EC begint. En inderdaad vinden we hier 
(vanaf #2EE) de tekst waar er een '*' bij werd gebruikt. PRINTen we dus een of 
andere output zonder '+' worden alle teksten netjes naar het beeld gebracht. 
Gebruiken we echter wel de '*' zal de output eerst in de HEAP worden bijeenge- 
bracht en pas daarna naar het scherm gaan. Is de HEAP te klein, beter : is er 
te weinig ruimte vrij in de HEAP, krijgen we een OUT OF STRING SPACE melding. 


De POKE #131,3 voor een PRINT met een '*' zal het resultaat niet op beeld zet- 
ten, maar wel in de HEAP laten verschijnen. Getallen komen trouwens voor hun 
uitvoer eerst op WES t/m. WF1 en U zou ze daar na een loze PRINT dwz PRINT па 
POKE %151,5, kunnen ophalen voor verdere bewerking. Vreemd genoeg staan ook 
integers daar met een decimale punt genoteerd. 


Er is nog een aardige toepassing van het verschil tussen '*' en °$’, U kent 
allen ongetwijfeld de INPUT-statement. Om de gebruiker van een programma om 
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een bepaalde waarde te vragen kunt U natuurlijk de volgende methode gebruiken. 
10 PRINT "Wat is de beginwaarde"j: INPUT BW:PRINT 

Maar beter vind ik : (Let ook op de spatie aan eind van tekst !) 
19 INPUT "Wat is de beginwaarde ";BWiPRINT- 


omdat na een BREAK en een CONT de tekst weer bij gegeven wordt. Dok als iemand 
keer op keer iets verkeerds intikt zoals een te groot getal, gevolg OVERFLOW 
RETYPE LINE. Dan kan zeker in splitmodes nogal snel uit beeld verdwijnen wat 
er gevraagd wordt. Maar hoe kunnen we de tekst van de INPUT nu veranderen ? 
Nu, dit is erg simpel. 


19 INPUT "Wat is je"+LEFT#$(STR$(P),LEN(STR$(P))-2)+"e poging "$ INV 
met INV het getal dat ingevoerd wordt en P het nummer van de poging. 


Tot slot de behandeling van het afdrukken van getallen. Vele programmeurs heb- 

ben gemerkt dat, als men daar niets tegen onderneemt, de getallen die worden 

afgedrukt altijd op ..@ eindigen. Dit is natuurlijk niet zo. Als U de machine 
aanzet wordt automatisch een IMPFPT gegeven, dwz alle getalvariabelen worden 

geacht van het type floating point, dus met een decimaal deel, te zijn. Als U 

dit niet wilt kunt U zelf IMPINT geven. 


жж Alle variabelen van het stringtype maken is ook mogelijk middels een ### 
TIP IMPSTR А-2. Zonder volgletters dus alleen IMPSTR is niet mogelijk. TIP 
HEE dde 


Ik ben al vele mogelijkheden om nu de .9 weg te krijgen tegengekomen. Ik laat 
er enige de revue passeren. 


10 PRINT MIDS(STRS(W!) ,O,LEN(STRS(W!) ) -2) 
20 WE=STR$ (И!) PRINT LEFTS (WS, LEN (WS) —2) 
3e PRINT W! +CHRS (8) *CHR$ (8) 

49 ВФ-СНН%(8):РНІМТ W!+B$*$+B$ 

5e B$zCHR$(8):B$zB$4-B$:PRINT NI +BS 

ёё PRINT W!1:CURSOR CURX-2,CURY:PRINT " " 


En de natuurlijk enige echt redelijke methode. 
909 Nich! PRINT WZ 


Nog beter is het natuurlijk, om als U met integerwaarden werkt, U dan ook in- 
tegers gebruikt. Een nadeel van al de methoden voor regels 90 is dat een getal 


niet meer dan een cijfer achter de komma mag hebben en het niet zo mag zijn 
dat een E-notatie nodig is. | 


Een ander probleem waar velen mee zitten is het uiterlijk van de getallen. 
Men wil graag dat elk getal twee cijfers achter de komma heeft. Dus ook 00 en 
94 en 20 moeten mogelijk zijn. Dit wordt dan nog vaak gecombineerd met de wens 
dat de getallen in een kolom met de komma's onder elkaar staan. Vooral bij fi- 
nanciele problemen zeer zinnige wensen. De beste oplossing die ik kon bedenken 
gaat er van uit dat U de bedragen in integers op centen nauwkeurig bijhoudt. 
Pas bij het afdrukken worden het dan guldens en centen. 


Voordat ik de oplossingen, die ik bedacht heb, geef wil ik eerst een aantal 
problemen met u doornemen. Mijn eerste gedachte om de getallen zo onder elkaar 
te krijgen, dat de rechterkanten een mooie rechte lijn vormen was het gebruik 
van de LOGT-functie. De grondgedachte is zeer simpel : LOGT(x) is de waarde 
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waartoe men 19 (Tien vandaar de T in LOGT) moet verheffen om x te krijgen. 
Voor de wiskundig minder geschoolden geef ik het volgende tabelletje.: 


getal tussen LOGT tussen getal LOGT 
1 @ 

1 en 19 9 en 1 19 1 

19 en 100 1 еп 2 190 2 
100 en 1000 2 en 5 1000 3 
1090 en 10000 3 en 4 16000 4 
enz, enz, enz, enz, 


Theoretisch nemen we dus de LOGT van een getal, maken er een integer van en 
ronden hem daarmee eventueel naar beneden af en tellen daar dan nog een bij 
op. We hebben dan precies het aantal cijfers waaruit het getal bestaat. Als 
dit aantal b.v. A heet kunnen we de getallen keurig onder elkaar krijgen met 
CURSOR 30-A,CURY:PRINT GETAL of CURSOR 29-LOGT(GETAL),CURY:PRINT GETAL. 


Maar dit blijkt bij controle niet altijd te werken. LOGT werkt met floating 
points. 10, 100, 1000 enz. worden dan als exponent van 2 opgeslagen; met een 
noodzakelijke afrondingsfout. De LOGT heeft dientengevolge ook een afrondings- 
fout. Deze fout is zeer klein, maar in ons geval fundamenteel tot fouten lei- 
dend. De CURSOR instructie werkt met integers en zal de uit LOGT voortkomende 
waarde transformeren naar dit type. En hiermee krijgen we dan onze fouten. Als 
U mij niet gelooft moet U maar eens intikken: PRINT LOGT (10000) U krijgt als 
antwoord 4.0, Nu intikken А7=1 067 (10000) :PRINT AX en U krijgt 3 op het scherm. 
Een heel klein getal bij de LOGT tellen voor conversie is mogelijk maar kies 
dat getalletje dan wel zo klein, dat 9999 ed niet weer een positie verkeerd 
gaat. Een goede en snelle oplossing geef ik nu hieronder: 


19 REM RIGHT ALIGNMENT / F.H. DRUIJFF - 9/84 
20 INPUT ñ:W=1:FOR L=@ TO 10:W-W*10:IF A>=W THEN NEXT 
3e CURSOR 36-L,CURY:PRINT А: GOTO 20 


Maar we zijn nog niet tevreden en willen de getallen ook nog van een komma (of 
punt) voorzien en die netjes onder elkaar. U wordt op uw wenken bedient : 


19 REM RIGHT ALIGNMENT 7 DECIMAL COLUMN / F.H. DRUIJFF - 9/84 

20 INPUT A:G=A/100:D=A MOD 100:Wz1 

3e FOR L=@ TO 19:WzW*10: IF G>=W THEN NEXT: CURSOR 3@-L,CURY:PRINT 6; 
40 IF D>=10 THEN PRINT D;:CURSOR CURX-S,CURY:PRINT ",": GOTO 20 

59 PRINT ","s3Ds:CURSOR CURX-2,CURY:PRINT "@":GOTO 20 


Maar ik wilde een nog gebruikers-vriendelijker oplossing en gebruikte daarvoor 
de eerder besproken adressen #ЕЗ t/m 4F1. Deze laatste oplossing is ook aan te 
passen om getallen zonder de E-notatie af te drukken. maar met meerdere nullen 
aan het begin of eind. Bestudeer de listing en U ziet wel de mogelijkheden. 


10 REM PRINT USING / F.H. DRUIJFF - 9/84 

20 USING$-"311111110200" : LUSLEN(USINGS) USING$ bevat de gewenste vorm 
3e DIM T$(2:1T$(0)2"O":T$(1)z" ";T$(2) =", 1T$(3)z"$" $ is optie 
40 INPUT A:CURSOR 30, CURY:T$="" initialisatie 
100 POKE #131,3:PRINT A:POKE 9151,9 dummy getalopbouw in #ЕЗ-#Р1 
119 ЕЗ=#ЕЗ+РЕЕК (#E3) +1: IzLU-1 initialisatie 
120 J=VAL (MIDS (USING$,1,1)) bepaal code 
130 IF J>1 THEN T#=T$(J)+TS:G0TO 160 speciaal karakter 
140 ESsES-1:IF EX<=#E4 THEN T$=T$(J)+T#:GOTO 160 aanvullend karakter 
159 T$-CHR$ (PEEK (ЕЗ) ) +ТФ echte karakter 
169 I=I-1:IF I>=@ GOTO 120:РКІМТ T$:GOTO 40 eindcontrole en afdruk 


Frank H. Druijff 
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ON 


у 


Games collection 13 


Een ongelukkig nummer, maar wel een verzameling die veel te bieden heeft. 


ы 


ся 


a 


Domino 
J. Üvervoorde 


Deflector 
М.Р. Looije 


Boggle 
H.P. Legry 


Termite 
R. Cuypers 


Jeu de Retourne 
H.P, Legry 


Maanl ander 
M. van Toer 


Het bekende spel nu op de DAI. U speelt tegen de DAI 
en U kunt dus niet meer vals spelen. Bekijk ook eens 
de waarlijk schitterende listing. Een echte topper ! 


Een leuk actie spel, waarbij duidelijk blijkt dat de 
DAI superieur is aan vele andere machines. 


Geen letters meer op hun Кор en de tijd wordt exact 
gemeten. De DAI maakt de score op. 


Laat de termieten door een boomstam knagen. Onthoud 
waar de oneetbare stukken zitten. Vier speelniveaus. 


Zoek de kaarten die bij elkaar horen . Grafisch zeer 
fraai. Ook bekend onder de naam *memory’. 


Naam spreekt voor zichzelf. Het is een programma dat 
weer eens demonstreert, dat je ook met weinig BASIC- 
regels veel speelgenoegen kan geven. 


THE PUZZLE COLLECTION 1 


oe 


Een nieuw type collectie, dat U een aantal breinkrakers 


voorschotelt. De pro- 


gramma's zijn er op uit U aan het denken te zetten. Alleen voor actieve leden. 


1 


ы 


сч 


ce 
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Verschillen 
J. Overvoorde 


Jig Saw 
М.Р. Looije 


Black Box 
Fh. Demoulin 


Teaser 
А. Bathe 
Even Wint 


E. Smet 


Wijn hevelen 
d. van Dunne 


African River 
E. Gortz 


84 - 24 


Bekend van de T.V. U krijgt een aantal verschillende 
zaken (huizen, kastelen, auto's ed) getoond; twee er- 
van zijn hetzelfde aan U om uit te zoeken welke. 
Jeroen heeft hierbij zichzelf overtroffen, Dit pro- 
gramma is voor programmeurs een lichtend voorbeeld. 
De beste inzending in jaren, 


Doe de legpuzzle nu eens op het beeldscherm. Weinig 
stukjes maar lastiger dan je vermoedt. 


Zend stralen door een doos met onbekende inhoud. Aan 
U de taak te deduceren waar de doos gevuld is. 


Wat lijkt dit spel gemakkelijk en wat is het lastig ! 
X'n en Ü's veranderen om tot de winnende combinatie 
te komen. Tik tak tor in het kwadraat. 


Als U de winnende formule niet kent zal deze puzzle U 
veel hoofdbrekens kosten. Sterk zijn en niet LIST ! 


U blijft aan het overgieten. De opdracht luidt , meet 
precies 18 liter af of halveer de totale hoeveelheid. 


Zorg ervoor dat een aantal mensen veilig aan de over- 
kant van de rivier komt. Moeilijke 'wolf,geit,kool'. 
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SWS WES MGE 


ADD r 10000sss Z,S,P,C,AC 1 4 


Add register to accwnulator 

De inhoud van een register wordt opgeteld bij de inhoud 
van de accumulator en het resultaat wordt in de accumu- 
lator geschreven. 

(А) + (r) > (A) 


ADD M 10000110 2,5,Р,С,АС 1 7 


Add memory to accumulator 

De inhoud van de geheugencel geadresseerd door het HL re- 
gisterpaar wordt opgeteld bij de accumulator en wordt in 
de accumulator gezet. 

(A) + (M) — A met M = (HL) 


ADC r 10001sss 2,S,P,C,AC 4 4 


Add register to accumulator with carry 

Deze instructie telt niet alleen de inhoud van een register 
bij de accumulator maar tevens wordt de carry bit opgeteld. 
(A) + (г) + C +A 


ADC M 10001110 Z,S,P,C,AC 1 7 


Add memory to accwnulator with carry 

De accumulatorinhoud en de overdrachtbit en de inhoud van 
de geheugencel geadresseerd door het HL registerpaar worden 
opgeteld en het resultaat wordt in de accumulator gezet. 
CA) + (M) + C + A met M = (HL) 


DAD rp 00гр1001 = = ss os 1 10 


Double add 

De inhoud van een registerpaar B, D, H of SP wordt opgeteld 
bij de inhoud van het registerpaar HL en het resultaat 

komt in het registerpaar HL. 

(HL) + (rp) + HL 


SUB r 10010sss Z,S,P,C,AC 1 4 


Substract register from accumulator 

De inhoud van het register wordt afgetrokken van de inhoud 
van de accumulator en het resultaat wordt in de accumulator 
geschreven. 

Bij een overloopbit wordt echter wegens de complementme- 
thode de carrybit teruggezet op 0. 


SUB M 10010110 7,5,Р,С,АГ 1 7 


Substract memory from accunulator 

De inhoud van de geheugencel geadresseerd door het HL re- 
gisterpaar, wordt afgetrokken van de inhoud van de accumu- 
lator; het resultaat wordt ingeschreven in de accumulator. 
(A) - (M) +A 


SBB r 10011sss Z,S,P,C,AC c] 4 


Substract register from accumulator with borrow 

De inhoud van het register en de carry bit wordt afgetrok- 
ken van de inhoud van de accumulator; het resultaat wordt 
in de accumulator ingeschreven 

(A) - (r) - C+ A 
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SBB M 


ADI const 


ACI const 


SUI const 


SBI const 


DAA 


CMA 


ANA r 
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10011110 Z,S,P,C,AC 1 7 


Substract memory from accumulator with borrow 

Oe inhoud van de geheugencel geadresseerd door het HL re- 

gisterpaar en de carrybit worden afgetrokken van de inhoud 
van de accumulator; het resultaat wordt ingeschreven in de 
accumulator. 

(A) - (М) - C+ A 


11000110 Z,S,P,C,AC 2 7 


Add immediate to accumulator 

De constante (dg) wordt opgeteld bij de accumulatorinhoud 
en het resultaat wordt ingeschreven in de accumulator. 
(A) * const +A 


11001110 Z,S,P,C,AC 2 7 


Add immediate to accumulator with carry 

De constante (dg) en de carry bit worden opgeteld bij de 
accumulator. Het resultaat wordt in de accumulator ge- 
schreven. 

(A) + const + C + A 


11010110 Z,S,P,C,AC 2 7 


Substract immediate from accumulator 

De constante dg wordt afgetrokken van de accumulatorinhoud. 
Het resultaat wordt in de accumulator geschreven. 

(A) - const + A 


11011110 Z,S,P,C,AC 2 7 


Substract immediate from accumulator with borrow 

De constante en de carry bit worden afgetrokken van de 
inhoud van de accumulator. Het resultaat wordt in de 
accumulator geschreven. 

(A) - const - C +A 


00100111 Z,S,P,C,AC 1 4 


Decimal adjust aceunulator 

De inhoud van de accumulator wordt zo behandeld dat de 

twee tetrades de juiste waarde van de inhoud in de BCD 

code geven, zodat rechtstreeks de BCD waarde kan uitgevoerd 
worden. Oe DAA instructie is de enige instructie waarbij 
de AC gebruikt wordt. 


001014441 ----- 1 4 


Complement accumulator 

De inhoud van de accumulator wordt gecomplementeerd. Alle 
nullen worden vervangen door énen en vice versa. 

(A) + (A) 


10100sss Z,S,P,AC,C 1 4 


AND register with accumulator 

De logische EN operatie wordt uitgevoerd op ce inhoud var 
de accumulator en deze van het register. Het resultaat 
wordt in de accumulator geplaatst. 

(A) AND (r) +A 
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ANA 


ANI 


ORA 


ORA 


ORI 


XRA 


XRA 


XRI 


M 


const 


const 


const 


10100110 Z,S,P,AC,C 1 4 


AND memory with accumulator 

De EN operatie gebeurt nu met de inhoud van de accumulator 

en deze van een geheugencel geadresseerd door het register- 
paar HL. Het resultaat wordt in de accumulator geplaatst. 

(A) AND (М) + A met M = (HL) 


11100110 Z,S,P,C,AC 2 7 


AND immediate with accumulator 

De EN operatie wordt uitgevoerd op de inhoud van de accu- 
mulator en een constante (dg). Het resultaat wordt in 
de accumulator geschreven. 

(A) AND const +A 


10110sss Z,S,P,C,AC 1 4 


OR register with accumulator 

De OF operatie wordt uitgevoerd op de inhouden van de accu- 
mulator van een register. Het resultaat wordt in de accu- 
mulator geschreven. 

(A) OR (r) +A 


10110110 Z,S,P,C,AC 1 7 


OR memory with accumulator 

De OF operatie wordt uitgevoerd op de inhouden van de accu- 
mulator en van een geheugencel geadresseerd door het HL 
registerpaar. Het resultaat wordt in de accumulator ge- 
schreven. I 

(A) DR (M) + A met M = (HL) 


11110110 Z,S,P,C,AC 2 7 


OR immediate with accumulator 

De OF operatie wordt.uigevoerd op de inhoud van de accumu- 
lator en een constante dg. Het resultaat wordt in de accu- 
mulator ingeschreven. 

(A) OR const + A 


10101sss Z,S,P,C,AC 1 4 


EXCLUSIVE OR register with accumulator 
De EXCLUSIEVE OF operatie wordt uitgevoerd op de inhoud 
van de accumulator en van een register. Het resultaat 


„wordt in de accumulator geschreven. 


(A) 8 (r) + A 


E 


10101110 Z,S,P,C,AC 1 7 


EXCLUSIVE OR memory with accumulator 

De EXCLUSIEVE OF operatie wordt uitgevoerd met de inhoud 
van de accumulator en met de inhoud van een geheugencei 
geadresseerd door het HL registerpaar. Het resultaat 
wordt in de accumulator geschreven. 

(A) 8 (M) + A met M = (HL) 


11101110 Z,S,P,AC,C 2 7 


EXCLUSIVE OR immediate with accumulator 

De EXCLUSIEVE OF operatie wordt uitgevoerd op de inhouc 
van de accumulator en een constante (dg). Het resultaat 
wordt in de accumulator geschreven. 

(A) B da + A 
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CMP r 


CMP М 


CPI const 


10111585 Z,S,P,AC,C 1 4 


Compare register with accumulator 
De inhoud van de accumulator wordt vergeleken met de inhoud 
van een register. Oe vergelijking wordt uitgevoerd door 
aftrekking van de registerinhoud van de accumulatorinhoud. 
Noch de registerinhoud, noch de accumulatorinhoud worden 
veranderd. Het resultaat beinvloedt alleen de toestancen- 
bits. 
Bij C = O is (A) > (r) als Z = 0 

is (A) = (r) als Z = 1 
Bij C = 1 is (A) < (r) 


10111110 Z,S,P,C,AC 1 7 


Compare with accumulator 

De inhoud van de accumulator wordt vergeleken met de innoud 
van een geheugencel geadresseerd door het HL registerpaer. 
Voor de modaliteiten van deze vergelijking zie CMP r. 


11111110 Z,S,P,C,AC 2 7 


Compare immediate with accumulator 

De inhoud van de accumulator wordt vergeleken met een con- 
stante (dg). Voor de modaliteiten van deze vergelijking 
zie CMP r 


a) Verschuivingen van accumulatorinhoud 


RLC 


RRC 


RA. 
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00000111 SE Cos 1 4 


Rotate left contenu E 

De inhoud van de accumulator wordt over één plaats naar 
links rondgeschoven. 

Het rondschuiven gebeurt zó dat alle bits 1 plaats ver- 
Schuiven naar links, met dien verstande dat D7 de plaats 
inneemt van Og. Oe waarde die 07 had voor het rondschuiven 
komt in de carry. 


| С | E Dg Ds 04 Оз 02 DA Do | voor uitvoering RLC 
Ë Го 05 04 Оз 02 Dy Og 07 | na uitvoering RLI 


00001111 ES IB ko 1 4 


Rotate right contenu 

De inhoud van de accumulator wordt over één plaats naar 
rechts rondgeschoven. 

Alle bits schuiven 1 plaats naar rechts met dien verstarde 
dat Dg de plaats inneemt die D? had. Пе bit Dg schuift 
eveneens door naar de carry. 


00010111 - - - C - 1 4 


Rotate accumulator left trough carry 
Alle bits van de accumulatorinhoud, met inbegrip van de 
carrybit worden over één plaats naar links roncgeschover.. 
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[с | | 07 Dg 06 D4 Оз 02 04 De | voor uitvoering 
р...) 


RAL 
E | De 05 04 D3 02 D1 Dg C | na uitvoering 
š : RAL 
RAR 00011111 жр Жылды е 1 4 


Rotate accumulator right trough carry 


Alle bits van de accumulatorinhoud, met inbegrip van ce 
carrybit worden over een plaats naar rechts rondgeschoven. 


b) Instructies betreffende de carry bit 





CMC 00111111 sees Ess 1 4 


Complement carry 
De carrybit wordt geinverteerd 


STC 00110111 SoS SEs 1 4 


Set carry 
Carrybit wordt 1. 


a) Onvoorwaardelijke springinstructies 


PCHL 11101001 ----- 1 5(6) 


HL to program counter 

Het adres dat zich in het HL registerpaar bevindt, wordt 
overgebracht naar de programmateller. Het programma wordt 
verder gezet vanaf dit adres. 

(HL) + PC 


JMP 11000011 ----- 3 10 


Jump unconditional 

Het programma wordt verder gezet vanaf adr. De programma- 
teller wordt geladen met het adres aangegeven in de spring- 
instructie 


b) Voorwaardelijke springinstructies 


Deze springinstructies worden slechts uitgevoerd als aan een bepaalde 
voorwaarde, aangegeven door de instructie, voldaan is, zoniet wordt het 
programma verder gezet met de instructie die volgt op de springinstructie. 
De voorwaarden die іп de instructie voorkomen zijn aangegeven door één 
van de toestandenbits C,Z,P,S. 


JC adr 11011010 | ----- 3 10(7/10) 
Jump on carry 
Als de carrybit 1 is, wordt het programma verder gezet op 
het adres aangegeven door de instructie. 
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JNC adr 


JZ adr 


JNZ adr 


JM adr 


JP adr 


JPE adr 


JPO 


11010000 ----- 3 10(7/10) 


Jump on no carry 
Als de carry bit 0 is, wordt gesprongen naar het aangegeven 
adres. 


11441444. ----- . 3 10(7/10) 


Jump on zero 
Als de nul toestandsbit gelijk is aan 1, wordt gesprongen 
naar het aangegeven adres. ; 


11000010 ----- 3 1007/10) 


Jump on no zeno 
Als de nul toestandsbit nul is, wordt gesprongen naar het 
aangegeven adres. 


11111010 ----- 3 10(7/10) 


Jump on minus 
Als de tekenbit 1 is, wordt gesprongen naar het aangegeven 
adres. 


Lu 


11110010 = = = = - 10(7/10) 


Jump on posttive | 
Als de tekenbit O is, wordt gesprongen naar het aangegeven 
adres. 


11101010 | ----- 3 10(7/10) 


Jump оп partty even 
Als de pariteitsbit 1 is, wat overeenstemt met een even 
pariteit, wordt gesprongen naar het aangegeven adres. 


11100010 | ----- 3 10(7/10) 


Jump оп partty odd 
Als de pariteitsbit 0 is, wat overeenstemt met oneven pari- 
teit, wordt gesprongen naar het aangegeven adres. 


Deze instructies maken het mogelijk subrcutines op te roepen hetzij onvoor- 
waardelijk, hetzij mits aan een bepaalde voorwaarde voldaan is. 

Het beëindigen of afbreken van de subroutine kan eveneens onvoorwaardelijk 
gebeuren of mits beantwoording aan een bepaalde voorwaarde. 


a) Onvoorwaardelijke oproep van subroutines 


CALL adr 
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11001101 ----- 3 17 
CaLL address 


De subroutine die begint op het aangegeven adres wordt op- 
geroepen. Het betreft dus eveneens een soort springopdracht 
vermits het programma verder gezet wordt vanaf het aangege- 
ven adres. Het adres van de instructie die onmiddellijk 
volgt op de CALL instructie, wordt in het stapelgeheugen 
(stack) geschreven om straks bij het verlaten van de sub- 
routine het hoofdprogramma normaal te kunnen verderzetten. 
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b) Onvoorwaardelijke terugkeer uit een subroutine 


RET 11001001 ----- 1 10 


Retum 

Door deze instructie wordt de subroutíne beëindigd en 
keert het programma terug naar het adres dat onmiddellijk 
volgt op de CALL opdracht. Dit adres staat ingeschreven 
in het stapelgeheugen. 


c) Voorwaardelijke oproep van subroutine 


Deg voorwaarden gebruikt in deze oproepen zijn weer aangegeven door de 
toestandenbits. 
CC adr 141014108 ee 3 11/17(9/18) 


Call on carry 

De subroutine wordt slechts opgeroepen als de carrybit 
gelijk is aan 1. 

De duur van de instructie is 11 of 17 klokperiodes alnaar- 
gelang de subroutine opgeroepen wordt (17) of niet (11). 


CNC adr 11010100 | ----- 3 11/17(8/18) 


Call on no carry | 
De subroutine wordt slechts opgeroepen als de carrybit 
gelijk is aan O. 

CZ adr 11001100 | ----- 3 11/17(9/18) 


Call оп zero 
De subroutine wordt slechts opgeroepen als de nulbit gelijk 
is aan 1. р Y 


CNZ adr 11000100 — 3 11/17(9/18) 

Call on no zero 

De subroutine wordt slechts opgeroepen als de nulbit O is. 
CM adr 11111100 ----- 3 11/17(9/18) 


Call on minus 
De subroutine wordt slechts opgeroepen als de tekenbit 1 is. 


CP adr 11110100 еттті 3 11/17(9/18) 


Call on positive 
De subroutine wordt slechts opgeroepen als de tekenbit 0 is. 


CPE adr 11101100 | ----- 3 11/17(8/18) 


Call оп partty even 
De subroutine wordt slechts opgeroepen als de pariteitsbit . 
1 is, d.w.z. als de pariteit even is. 

CPO adr 11100100  ----- 3 11/17(9/18) 


Call on parity odd 
De subroutine wordt slechts opgeroepen als de pariteitsbit 
nul is, d.w.z. als de pariteit oneven is. 


d) Voorwaardelijke terugkeer opdrachten 
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Het afbreken van, of het terugkeren uit een sutroutine kan weer afhanke- 
lijk zijn van de toestandenbits. 


RC 


RNC 


RZ 


RNZ 


RM 


RP 


RPE 


RPO 


11011000 5/11(6/12) 


Return on carry 

De terugkeer uit een subroutine gebeurt slechts indien de 
carrybit 1 is. Oe instructieduur is dan 11 klokperiodes, 
in het tegenovergestelde geval 5 klokperiodes. 

5/11(6/12) 


11010000 ----- 1 


Return on no carry 
Oe terugkeer uit de subroutine gebeurt slechts indien de 
carrybit nul is. 


11001000 5/11(6/42) 


Return on zero 
De terugkeer uit de subroutine gebeurt slechts als de nul- 
bit 1 is. 


11000000 


Return on no zero 
De terugkeer uit de subroutine gebeurt slechts als de nul- 
bit O is. 


5/11(6/12) 


11111000 5/11(6/12) 


Return on minus 
De terugkeer uit de subroutine gebeurt slechts als de 
tekenbit 1 is. 


11110000 5/11(6/12) 


Return on postttve 
De terugkeer uit de subroutine gebeurt slechts als de 
tekenbit OÜ is. 


11101000 5/11(6/12) 


„Return on parity even 


De terugkeer uit de subroutine gebeurt slechts als de 
pariteitsbit 1 is, d.w.z. als de pariteit even is. 
5/11(6/12) 


11100000 ----- 1 


Return on parity odd 
De terugkeer uit de subroutine gsbeurt slechts als de pa- 
riteitsbit 0 is, d.w.z. als de pariteit oneven is. 


4.2.7. Instructies betreffende de programma onderbreking (interrupt) 


EI 
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11111011 


----- 1 4 


Enable interrupt 
Deze instructie laat onderbreking toe van het hoofdprogram- 
ma. 
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DI 


RST const 


RIM 


11110011 ----- 1 4 


Disable interrupt 

In het programmagedeelte dat volgt na de OI instructie, 
is onderbreking onmogelijk, d.w.z. dat interruptaanvra- 
gen genegeerd worden. 

Samen met deze twee instructies kan men gebruik maken van 
de zogenaamde restart (RST) instructies. 


441111414 ----- 1 11(12) 


Restart 0 to 7 : 

Deze instructies ten getale van 8 (RSTO ... RST7) herstar- 
ten het programma na een interruptaanvraag op adressen 
verkregen door de constante O tot 7 te vermenigvuldigen 
met 8; dit geeft als adressen : 


decimaal hexadecimaal 

0 B 

8 8 

16 10 
24 18 
32 2g 
40 28 
48 3g 
55 38 


Behalve voor RST 7 beschikken we dus over 8 geheugenplaat- 
sen om een kleine subroutine te starten na elk van de RST 
opdrachten. 

Bij de 8085 zijn nog vier verdere adressen voorzien voor 
de restart opdrachten : 


RST 4,5 aangegeven onder de naam TRAP en met decimaal 
adres 36 (24 Hex). 

RST 5,5 met decimaal adres 44 (2C Hex). 

RST 8,5 met decimaal adres 52 (34 Hex). 

RST 7,5 met decimaal adres 60 (3C Hex). 


Drie van deze interruptinstructies nl. RST 5,5 6,5 en 7,5 
zijn maskeerbaar. 

De TRAP instructie daarentegen is niet maskeerbaar. Om de 
maskering te kunnen programmeren zijn twee bijkomende in- 
structies voorzien, nl. RIM en SIM. 


00100000 ay Sh E 1 4 


Read interrupt mask 

Door deze instructie wordt de accumulator geladen met een 
8 bits woord zodat de identificatie mogelijk wordt van de 
gemaskeerde interrupt adressen. Een bijkomende informatie 
geeft aan of voor één van de niveaus een interruptaanvraag 
heeft plaats gehad. 

De samenstelling van het 8 bits woord is als volgt : 


M M M 
51017,5 | 6,5; 5,5 | IE |7,5 | 6,5| 5,5 
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SIM 


a. SIO 
Sertal tnput data 
De bit in dit vak indien aanwezig, geeft ёёп bit van de 
informatie die in serie wordt ingebracht. 

b. Een 1 in één van de vakken 7,5 6,5 of 5,5 geeft aan 
welke van de interruptadressen aangevraagd worden (1). 

c. IE 
Interrupt enable 
IE heeft niet alleen betrekking op de specifieke inter- 
rupt adressen maar op het hele interrupt systeem (1 = 
enable). 

d. Een 1 in één van deze vakken geeft aan welke van de in- 
terrupt adressen afgestopt is (M). 


00110000 - - - - - 1 4 


Set interrupt mask 

De SIM instructie gebruikt de accumulatorinhoud van het 

ogenblik om : 

a. de interrupt adressen 7,5 6,5 en (of) 5,5 af te stoppen. 

b. de flank gevoelige input van RST 7,5 te resetten (RST 
6,5 en RST 5,5 zijn niveau gevoelig). 

c. Оу van de accumulator te gebruiken als één bit van de 
informatie die in serie wordt buiten gebracht. 

De samenstelling van het codewoord is als volgt : 


07 Dg 


| $00 | SDE [ x] 7.5] 7,5 | mse! 7,5] 5,5| 5,5 | 
E 


a b c d e f 


a. SOD 
Sertal output data 
De bit іп уак D7 wordt gebruikt als’ serie uitgang op 
voorwaarde dat de bit in vak Dg een 1 is. 
b. SDE 
Serial data enable 
SDE geeft aan of Оу al (1) dan niet (0) als serie uit- 
gang in aanmerking komt. 
c. Geen betekenis. 
d. Een 1 in dit vak veroorzaakt een terugzetten van RST 7,5. 
e. MSE 
Mask set enable 
Een 1 in vak Ds maakt het mogelijk één van de interrupt 
adressen af te stoppen. 
Een nul geeft aanleiding tot negeren van de inhoud van 
Do tot D2. ; 
f. Geeft aan welk niveau afgestopt мега (М). 
De D4 heeft voorrang op de SIM instructie. 


HLT 
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01110110 | ----- 1 7(5) 


Halt 
Deze opdracht stopt het programma tot een interrupt aan” 
vraag geregistreerd wcrct. 


Se 


*CURSUS MICRU* 


EeSTERNAL INTEAGAUPT 


HOW ТО USE AN EXTERNAL INTERRUPT 


====w============= == x= ==” nx — ге = — m e -- 
==================================== 


According to the DAI manual, an external interrupt signal 
can be connected to the DCE-bus. But how to use this 
interrupt signal is not described, 


The external interrupt must be a low-to-high transition 

on pin 6 of the DCE-bus. It provokes an external interrupt 
on the 5501 interrupt controller (pin 22). As result, 

a RST2 instruction is generated by the 5501. 


This small routine enables the use of an user interrupt 
routine in combination with the 'stack overflow! routine, 
which is generated by the DAI via the same external interrupt 
on the 5501. 


HHHH PUSH PSW 
PUSH B 
PUSH D : 
LDA :ØØ5F Get current interrupt mask 
PUSH PSW and preserve it 


EI 

LXI р,:0800 

IXI Н,:0000 

DAD SP Get stackpointer in HL 

DAD D Test if stackbottom reached 


JNC :DOE2 Then run ‘stack overflow! error 
T 


Your own interrupt routine 


JMP :D9CD General interrupt return 


The interrupt vector address of RST2 - on address 
0066/67 - must be changed to the startaddress of the 
routine above (xxx). This can be done under Utility 
via: V2. 


©- Jan Boerrigter - dec.'82 
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JEROEN DENOD 


REM fu fu Pu a Mo Ar Pe Al Phe ha Pha PA AAL U Pha о A Ag a ы V lr AAA Ag a v V V ы гы U At A VV V V AV тыл Ar u Ar 


1 

2 REM Jeroen Overvoorde Helmbloem 5 3048 AC Rotterdam 
3 REM Tel: (010)-210425 Nederland datum 2 dec 1983 

4 REM ММММ AV Av Av V V v Av A v V ы A An Pg V A V V V о о Р А Р о DM V v DM DIN DM DM MM Av v uiv ы A A 
S КЕМ o et * 
6 REM 3 dec Helmbloem 5 

7 


10 MODE S:X=184:FILL Х,0 145%Х,ҮМАХ 12 
11 MX=110:MY=121:R=11:K=10:GOSUB 3000:R=10:K=0:GOSUB 3000 
12 MX=137:R=11:K=10:GOSUB 3000:K=0:R=10:GOSUB 3900: DRAW 126,99 124,132 1 


20 FILL 36,110 47,190 9:FILL 48,110 59,190 15:FILL 40,110 71,190 3 

38 FOR I= 155 TO 190: DRAW 9,1 71,1430 OENEXT 

40 FOR 1=155 TO 140:DRAW 0,1 73,1430 B:NEXT:IF T<>2 THEN T=T+1:G0TO 40 
30 T=0: FILL 74,185 77,192 10: FILL 78,184 79,191 10 

89 MX=40: MY=40: R=20:K=14: GOSUB 3000: R=15:K=0: GOSUB 3000:FILL МХ-20,МҮ MX 
,MY*20 9 

65 FOR I=MY+15 TO MY*20: DRAWN MX, I МХ%20,1%20 14:NEXT:FILL MX-19,MY+36 MX 
*20,MY*40 14 

76 MXzB0:MYzSS:RzZ1S:K-14:GOSUB 3000:R-10:Kz0:GOSUB 3000:FILL 91,20 95,80 


80 MX=115:R=15:K=14:GOSUB 3000:R=10:K=0:GOSUB 3000 

85 FILL MX,MY МХ%20,МҮ-20 O:FILL MX,21 MX+15,25 14:FILL MX-14,MY-2 MX+15 
„МҮ+2 14 

90 MX=150:R=15:K=14:GOSUB 3000:R-10:K-0:GOSUB 3000:FILL MX,20 MX+15,50 0 
95 FILL MX,21 MX+15,25 14:FILL MX,45 MX+15,49 14 

100 FILL X,232 145%Х,259 14:F ILL Х,110 7+X,231 B:FILL 136+X,110 143+X, 231 


110 FOR Y=23@ TO 116 STEP -&:FILL O*X,Y 4+X,Y-1 7:FILL &*X,Y 7+X,Y-1 7 
120 FILL 136+X,Y 140%Х,Ү-1 7:FILL 1424X,Y 1434X,Y-1 7 

130 FILL X,Y-3 14X,Y-4 7:FILL 3eX,Y-3 74X,Y-4 7 ` 

140 FILL 1364X,Y-3 1374X, Y-4 7iFILL 1394X, Y-3 1434, Y-4 7:NEXT 

150 FILL X,74 143+X,109 8 

140 FOR V=109 TO 74 STEP -&:FOR Н=@ TO 143 STEP &:FILL H+X,V H+X+4,V-1 7: 
NEXT HiNEXT V 

170 FOR V=106 TO 74 STEP -6:FILL Х,У X+1,V-1 7:FOR H=3 TO 140 STEP &:FILL 
H+X,V H+X+4,V=1 7:NEXT H 

180 FILL 142+X,V 145%Х,У-1 7:NEXT 

190 FILL 8*X,110 135+X,231 А 

200 FOR Ізі TO 11:READ A,B,C,D:FILL A+X,B C+X,D B:NEXT 

210 FOR V=227 TO 224 STEP -2:DRAW 14+X,V 29%Х,У 13:DRAW 34+X,V 47+X,V 13: 

WAIT TIME S:NEXT 

220 FOR V-223 TO 190 STEP -2:DRAW 14-X,V 29+X,V 13:DRAW 34+X,V 47%Х,У 13: 
DRAW S4+X,V 69+X,V 13 

230 WAIT TIME S:NEXT:FILL 404X,0 SS+X,73 8 

240 FOR V=73 TO © STEP -&tFÜR H=45 TO 55 STEP &:FILL 40+X,V 44+X,V-1 7:FI 

LL H*X,V H*X*4,UV-1 7:МЕХТ H:NEXT V 

260 FOR V=70 TO 9 STEP -&1FILL 40+X,V 41+X,V-1 7:FILL 43+X,V 47%Х,У-1 7:F 
ILL 49+X,V 52+X,V-1 7 

270 FILL S4+X,V 55+X,V-1 7:NEXT:FILL 128+Х,0 143+X,73 8 

275 FOR V=73 TO 9 STEP -6:FOR H=133 TD 143 STEP A:FILL 128+X,V 132+X,V-1 
7:FILL H+X,V HtX+4,V-1 7:NEXT H:NEXT V 

280 FOR V=70 TD 9 STEP -&:FILL 128+X,V 129%Х,У-1 7:FILL 131+X,V 135+X,V-1 
7:FILL 137+X,V 140+X,V-1 7 

290 FILL 142+X,V 143+X,V-1 7:МЕХТ 

295 FILL 56+X,0 127+X,73 8 

360 FILL 56+X,3 127+Х,69 G:FILL 89+X,50 94+X,51 8 

310 K=S:FOR Ізі TO 7:READ A,B,C:FILL A+X,115 B+X,C 15:R=RND(3)+2:MX=(B-A) 
/2+A+X:MY=C+R+1:GOSUB 3000:NEXT 

315 FOR 1=1 TO 4:READ A,B,CrFILL A+X,117 В+Х,С 15:R=RND (3) +2: MX= (B-A) /2+A 
+X:MY=C+R+1:GOSUB 5900: NEXT 

320 FILL 8+X,5 40%Х,70 S:FILL X,@ 8%Х,73 8:FOR 1-0 TO B:DRAW I+X,73 84X,7 
O 15:NEXT 

325 FILL 8+X,70 40+Х,75 15 
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559 FOR I=3 TO 1@:DRAW 1%Х,0 8+X,4 S:NEXT:FILL 8%Х,0 40-Х,4 3 
540 FILL 8+X,5 40*X,6 B:FILL 144X,13 354X,32 8 
545 FILL 14+X,40 35+X,64 B:FILL 18+X,35 294X,37 В 
; 550 FILL 116+X,186 1314X,223 15 
1 551 FOR 1-151 TO 116 STEP -1:FOR U=186+0 TO 222:DRAW I+X,U I+X,U+1 9 
$ 359959  UzU*2:1F 0<225 THEN NEXT U 
3690 IF Dë THEN O=1:NEXT I 
370 IF Del THEN O=@:NEXT I 
380 FOR I=164 TO 114 STEP -2:DRAW 12%Х,1 69+X,1 &:WAIT TIME S:NEXT 
390 FILL 76+X,221 91%Х,227 7:FILL 96*X,221 109%Х,227 7:FILL 116*X,221 131 


+X,223 7 
400 FILL 40+Х,58 47+X,65 15:FOR 1-59 TO 43 STEP 2:DRAW 41+X,I 44+X,1 O:NE 
XT 


410 DOT 41%Х,82 O:DOT 46*X,60 8 

500 LOAD "JEROEN DEMO 3" 

1000 DATA 14,190, 29, 227,34, 190,47, 227,54, 186, 69,223, 76, 190, 91, 227, 94, 190, 1 
09,227, 116, 186, 131,223 

1010 DATA 12, 114,69, 164,76,117,91,153,95, 117, 109, 153, 74, 158, 109, 152, 116, 11 
4,131,164 

2000 DATA 16, 26, 122, 28, 40, 120, 43, 48, 125, 50, 50, 123,52, 59,120, 114, 123, 125, 12 
6,131,123 

2010 DATA 76,81, 125,83, 91,124, 94, 104, 123, 106, 109, 126 

3600 D=(R#R):FOR YzO TO R:XX=SOQR(D-Y#*Y) 

5010 DRAW MX-XX,MY-Y MX+XX,MY-Y K:DRAW MX-XX,MY+Y MX+XX,MY+Y КіМЕХТ Y 

3020 RETURN 





MT wos 
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Beveren, 24 september 


Geachte heer, 


Bij het ontwerpen van het programma CRYPTOWRITER (zie bijlage) 
waarin enkele keren van integer variabelen naar string variabelen 
wordt overgegaan kwamen enkele foutjes aan het licht bij het 
gebruik van de funkties STR$(X) en VAL(X$). 

Deze foutjes kwamen alleen voor als de getallen meer dan 6 
cijfers bevatten. 


+ De VAL(X$) funktie 
- werkt exact tot 5 cijfers 
- bij 6 cijfers werkt de funktie ook nog goed maar worden de 
getallen in wetenschappelijke notatie weergegeven 
- vanaf 7 cijfers treden er fouten op omdat dan in wetenschap- 
pelijke notatie wordt gewerkt en er afgerond wordt 


Vb. X$="12345" VAL(X$) geeft 12345 
X$=" 125456" " " 4.25456Е5 
Ха-"1254567" " " 1.234576 
Xs="12345678" " " 1.25457Е7 


Deze foutjes kunnen we omzeilen met onderstaande programmaregel 
die echter alleen werkt voor integer getallen bestaande uit 8 
cijfers, maar met enige aanpassing is het ook bruikbaar voor 
floating point getallen. Het komt erop neer dat het getal in 
twee stukken verdeeld wordt die foutloos omgezet worden en dan 
worden die twee delen terug bij elkaar gevoegd. 

Het kan vreemd lijken dat niet in óén keer de waarde X berekend 
wordt maar dat eerst de tussenuitkomsten berekend worden en dan 
pas de optelling ervan. In de praktijk is namelijk gebleken dat 
je fouten krijgt als X in één keer berekend wordt. 


10 Х1-УАТ(М108(Х%,0,422ж10000:Х2-УАТ(М104(Х%,4,4)):Х-Х1»Х2 
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+ De STR$(X) funktie 
Hier treden dezelfde moeilijkheden op als bij de VAL(X$) 
funktie. Met onderstaand programaatje kunnen deze problemen 
omzeild worden. Het is eveneens voor integer waarden van 8 
cijfers. (vooraf IMP INT) 


40 ЕП-Х/10000:1/0-Х-ЕПж10000 

eg ED$-SuUug(ED):LDs-STRs(LD) 

50 ED$-hID$(ED$,1,4):LD$-MID$(LD$,1,LEN(LD$)-2) 
40 IF LEN(LD$)Q24 THEN LDg="G"+LDg:GOTO 40 

50 X$-ED$+LD$ 


Tenslotte nog een verzoekje. Ik ben in het bezit van joy- 
Sticks van een Atari spelcomputer. Is het mogelijk om een 
schakeling te publiceren waardoor ik de 9-polige connector 
ervan kan aansluiten op de vUIN-bus van de DAI computer? 


Met DAInamische groeten 


gc Y 


Filip Verberckmoes Filip Verberckmoes 
Meidoornlaan 16 

2750 Beveren 

Tel: 03/775.20.64 


Cedric Dufour has developed a splendid interface for ATARI- 
compatible joysticks ( 4 contacts - 8 directions ) , more 
about this in one of our next issues ... 
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ES [PT COSE RAITEE 


Oryptowriter is een programma waarmee je een tekst kunt "vertalen" 
in geheimschrift m.b.v. een codeersleutel.  Deze sleutel is een 
letter-,cijfer-, of tekencombinatie van maximaal 5 karakters. 
Vb. DAI , 123 , ?/+ , ЧА... 
Het codebericht kan je op cassette bewaren of afschrijven van 
het scherm. Deze schrijfroutine kan je ook gebruiken, mits 
enige aenpassingen, om het codebericht te laten uitprinten. 
Oryptowriter vervangt niet een letter door een bepaald getal zo- 
dat de code gebroken kan worden door de frequentie te tellen van 
bepaalde getallen.  Oryptowriter maakt gebruik van de bit-opera- 
tor IXOR. Het programma voert volgende bewerking uit om te 
coderen: CODE=BOODSCHAP IXOR SLEUTEL, Om te decoderen doe je 
eenvoudig BOUJUSCHAP-CODE IXOR SLEUTEL en het bericht verschijnt 
in alle duidelijkheid. 
Eerst wordt de sleutel, vb. DAI omgezet in zijn ASCII waarde 
(voor DAI geeft dat 686573).  Daarna wordt uit INPT4( ), die de 
tekst onder de vorm van zijn ASCII waarden bevat, telkens 8 
cijfers gehaald en wordt bovenstaande bewerking met de bit-opera- 
tor uitgevoerd. Het resultaat komt in CBR¢( ). 
Vb. sleutel = DAI = 686575 

boodschap = NEEN = 78696978 

code = 79542591 

Het valt meteen op dat de letters N en E telkens op een andere 

wijze gecodeerd worden. 


Filip Verberckmoes 
Meidoornlaan 16 
2750 Beveren 

Tel: 05/775.20.6% 
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-- CRYPTOWRITER FILIP V 


REM CRYPTOWRITER DOOR FILIP VERBERCEMOES 9/1984 
PRINT CHRE(12):CLEAR 19040: DIM ІМРТ% (1099), CBRS (255) 
CURSOR 16,26:F0R A=1 TO 4@:PRINT СНЕФ (29); : МЕХТ: CURSOR 20, 18: PRINT 
"CRYPTOWRITER" 
CURSOR 1£9,156:FD0R A-1 TO 40:РКІМТ CHR$(S)5:NEXT 
CURSOR 15,12:PRINT "EKEUZEMENU":CURSOR 15,1@:PRINT "CODEREN............. 
1":CURSOR 15,9:PRINT "DECODEREN........... 2" 
CURSOR 15,8:PRINT "UITLEB.............. S":CURSOR 15,4:PRINT "TIK UW 
KEUZE IM A.U.B. >" 
P=GETC:IF P=49 THEN PRINT "1":80T0 119 
IF P=5@ THEN PRINT "2":G0TO 490 
IF P-51 THEN PRINT "3":60TD 1040 
БОТО 76 
GOSUB 1@9@:PRINT СНЯФ (12): "ТІК NU JE BOODSCHAP IN" 
P-GETC:IF F=0 GOTO 129 
IF P=8 THEN CURSOR CURX-1,CURY:PRINT " "3:CURSOR CURX-1,CURY:LS- 
LEN CINPTS(N) ) -2: 1МРТФ (М) =LEFT$ (CINPT$(N},LS):GOTO 120 
IF P=9 THEN PRINT CHR$(12): "CODEBOODSCHAP":GOTO 170 
IF P-13 THEN N=N+i:IF N>1@@ THEN PRINT :PRINT "MAXIMALE INPUTCAPACITEIT 
BEREIKT !":Nz-N-1:INPUT "RETURN"SRETS:60TD 170 
PRINT CHR$(P)::P$-MID£ (STRS(P), 1,2): INPTS(N)=INPTS(N}+P$:G0TO 120 
FOR I=@ TD N:REM Coderen 
IF LEN(INPT$(I)) MOD 8220 THEN INPT#(1I)=INPT$(1)4+"32":GOTO 180 
LS-LEN(CINPT$(11)—-8 
FOR A=@ TO LS STEP 8 
BS$-MID$ CINPT$(I),A,8) 
AB=VAL (MID$(B5$,0,4) ) +10000: BC=VAL (MIDS (BSF, 4, 4) ) : BS=AB+BC 
CODE=BS IXOR SLEUTEL: ED=CODE/ 10000 
LD-CODE-ED«16000: ED$=STR$ (ED) :LD$-STR$ {LD} 
ED$=MIDS(EDS, 1, LEN(ED$) -3) : LDS=MIDS (LDS, 1, LEN (LDS) —5} 
IF LEN(ED$)<>4 THEM ЕрФ="0"+Е0%: GOTO 260 
IF LEN(LD$)424 THEN LD$="@"+UD#$:GDTO 270 
CODE$=EDS+LDF 
IF LEN(CBRS(M))}=54 THEN PRINT CBR$(M):M=M+1 
CERF (M)=CBRS(M)4+CODES+" ":МЕХТ A:NEXT I:PRINT CBR$(M) 
PRINT :PRINT “Wilt U het codebericht controleren (J/N) ?'; 
=GETC:IF P=74 THEN PRINT CHR#(12);"CONTROLE CODEBERICHT":FLAG=1: GOTO 
600 
IF Р<>78 THEN 320 
PRINT :PRINT "Wilt U het codebericht op cassette bewaren (J/N)"; 
P=GETC:IF P=74 THEN PRINT : INPUT "START TAPE, DRUK RETURN": RET$: SAVEA 
CBRE “CODEBOODSCHAP":PRINT :GOTO 700 
IF P£>78 GOTO 410 
PRINT CHR$(12):"DODEBDODSCHAP":FDR A=0 TO M 
PRINT CBR$(A):IF CURY-O THEN INPUT "RETURN"SRETS$:PRINT CHR$ (12) 5 
NEXT А: БОТО 7002 


REM Decoderen  ** input codebericht 

GOSUB 1000:PRINT СНЕФ (12); 

PRINT “Codebericht manueel of via cassette invoeren (М/С) ?"; 
P=GETC: IF Р=57 THEN PRINT "C":PRINT "START TAPE":LOADA CBRS :GOTO 600 
IF Р<>77 GOTO 510 

PRINT "M'":M-e 

P=GETC:IF P=@ GOTO 54e 

IF P-B THEN CURSOR CURX-1,CURY:PRINT " "3: CURSOR CURX-1,CURY:LS- 

LEN (CBRS (M) )-1:CBRS(M) =LEFTS (CBRE (M),LS):GOTO 540 

IF P=9 THEN CBRS(M)=CBRS(M)+" ":PRINT СНЕФ (12); "GEDEKODEERDE BOODSCHAP": 
GOTO 500 

IF Р-15 THEN СВЕФ (М) =СВЕФ (М) +" “:M=M+i:PRINT :GOTO 540 
P$=CHRS(P):PRINT РФ; :СВЕФ ЕМ) =СВЕФ М) +РФ: БОТО 540 
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590 
599 
516 

26 
ER 
546 
6530 
660 
679 
686 
аза 
799 
710 


"ZO 


ға. 


738 
740 
756 
768 


1000 
1010 


1020 
19509 
1040 
lese 
1980 
1070 
1686 
1090 
1109 
1110 


1120 
1156 
1149 
1158 
116 

1172 
1189 
1198 
1260 


1219 
1228 
1236 
1240 
1250 
1260 

278 


1590 
1318 
1320 
1330 
1340 


~~ (CRYFTOWRITER FILIP 4 


REM Decoderen codebericht 
FOR B-6 TO 255:LS=LEN(CBR$(B))-9:FOR A=@ TO LS STEP 9 


A$-MID$ (CBRE (B) А,8) 

AB=VAL (MIDS (A$, O, 4) ) #10000: BC=VAL (MIDS (A$, 4, 4) ) 
CBS=AB+BC: BS=CBS IXOR SLEUTEL 

BD=B5/ 10400909: PRINT CHRE (BD) 1: LK-BD«1000000 

BD- (85-1 К) /10000: PRINT CHR$ (BD) s : LK=LK+BD#1 6000 
BD-FRAC (BS/ 10990. 9) «106: PRINT CHR$ (BD) 3: LK=LK+BD#100 
PRINT CHR$(BS-LK)::NEXT А 

IF CBR$(B*1)25"" THEN NEXT B 

IF FLAG=1 THEN FLAG-e:GOTU 490 

PRINT :PRINT "Wilt U verder gebruik maken van CRYPTOWRITER (J/N)2"; 
=BETC:IF P=74 GOTO 740 

IF P=78 THEN END 

GOTO 710 

FOR А=0 TO М: INPT$(Q)="":NEXT A 

FOR А=0 TO 2S5S5:CBR$(4)-"":IF CBR$(A+1)<>"" THEN NEXT A 
GOTO 20 


REM Opstellem sleutel 

CURSOR 15,4: INPUT "SLEUTEL";S$:A=LEN(S$) : PRINT SIE А>5 OR A=@ THEN 
1910 ` 
SL$="": FOR D=@ TO 4-1 

RS=MID¢ (S4, D, 1) : P-ASC (R$) 

ST$=MIDS (STRS(P) 1,2 
SL$=SL$+ST$:NEXT D:SLEUTEL-VAL (SL$) s RETURN 
PRINT СНАФ (12); TAB(25) 3 "UITLEG" 
PRINT "Met CRYPTOWRITER kunt U een tekst zodanig coderen dat alleen" 
PRINT "de bestemmeling, die de juiste sleutel kent, de oor spronke—" 
PRINT "lijke tekst kan lezen. Bovendien wordt een letter op ver-" 
PRINT "schillende manieren gecodeerd zodat men de code niet meer" 
PRINT "kan breken door de frequenties te tellen van bepaalde":PRINT 
"tekens." 
PRINT "Om te starten tikken we eerst de codeersleutel in." 
PRINT "Dit is een letter-,cijfer- of leestekencombinatie bestaande" 
PRINT "uit maximaal Z karakters. Vb. DAI. Daarna ERETURNJ. " 
PRINT "Dan kun je de tekst intikken die gecodeerd moet worden." 
PRINT "Als het intikken beeindigd is druk je [TAB] en het coderen” 
PRINT "wordt gestart. Na het coderen heb je nog een controle-" 
PRINT "mogelijkheid die de volledige boodschap terug decodeert." 
PRINT "Je kan de codeboodschap op cassette bewaren of we van het" 
PRINT "scherm afschrijven.":PRINT “Bij het decoderen moet je eerst de 
sleutel in te tikken” 
PRINT "en daarna kan je het codebericht inladen van cassette of " 
PRINT "intikken (om te eindigen CTAB]).":PRINT 

PRINT “OPM. ALLE LETTERS MOETEN HOOFDLETTERS ZIJN ANDERS" 

PRINT * LOOPT DE CODERING IN HET HONDERD !'':1::0 0:010 
PRINT :PRINT "DRUK OP EEN TOETS >"; 

IF SETC=@ GOTO 1249 
GOTO 2e 


REM U kunt de codeboodschap ook laten uitprinten. 
REM Daarvoor moet U de regels 450 - 450 veranderen 
REM zodat de boodschap geprint wordt. Het code- 
REM bericht zit in CBR$( ). Het aantal is M. 

REM xx CRYPTOWRITER және END +++ 
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190 
110 
120 


130 
149 
150 
169 
170 
180 
190 
200 
210 
220 
250 
240 
259 
260 


279 
289 
2909 
зае 


510 
320 


330 
540 
350 
360 
370 
38e 
390 
490 
410 


420 
450 
440 
450 


460 
47@ 
480 
499 


500 
519 
520 
550 
540 
550 
560 
570 


[АШ жЕ ШӘ 


CLEAR 100@:DIM A(7,7),CS(3):COLORT 8 @ 8 14:POKE #75, 32 
C$ (0) =СНКФ (136) 2$ (1) zCHR$ (137) : C$ (2) =CHRS (94) :С% (5) =CHRS (140) 
MODE O:PRINT CHR$(12):POKE #BC44,#D1:POKE #BC45,#4A:POKE #8043, #4E 
P :POKE #BC41,#55:POKE #ВСЗЕ, #40 
CURSOR 9,16:РКІМТ "BERS UP":POKE #BBEE, #D0 
FOR А=9 TO @ STEP -1:ҒОК 8216 TO 23:1F S=16 GOTO 166 
IF 8-А<›16 THEN CURSOR 40+А,5-А: РКІМТ А; 
NEXT:FOR SZ=40+A TO 20 STEP -1 
IF 25-А<216 THEN CURSOR SZ+9-A, 23-A:PRINTA; 
NEXT:NEXT:COLORT 8 @ 8 9:CURSOR 5,6:PRINT "MOEILIJKHEIDSGRAAD 1-5" 
FOR S=#B6F8 TO 8-46 STEP -2:POKE S,HFF:NEXT 
HeGETC:IF Н<49 GOTO 200:IF H>53 GOTO 200: B=H-44 
FOR XX=1 TO B:FOR YY=1 TO В:А(ХХ, ҮҮ) = (ХХ-1) #В+ҮҮ: NEXT: NEXT 
TX221:TY271Dz0:FO0R H3 TO B:TYzTY-1-D:D21-Di TX2TX-3-DI NEXT 
XBzBi YBEB: A (XB, YB) ZO: PRINT CHR$(12):3: GOSUB 510 
GOSUB 659:РОКЕ #B46A, #D1 
CURSOR 5,1:PRINT "IN DEZE VOLGORDE MOETEN DE GETALLEN GEZET WORDEN" 
WAIT TIME 15@:CURSOR 5,1:PRINT 5РС(7) 3 "ІК GOOI ZE NU NETJES DOOR 
ELKAAR"; SPC (9) 
CURSOR 59,23:GOSUB 460: 50808 800 
CURSOR @,1:PRINT SPC(17)3 "WILT U WAT VOORBEELDEN ?"; SPC (18) 
H=GETC:IF H=@ GOTO 290:1F Н<274 GOTO 329 
CURSOR @,1:PRINT "IK GEEF U ENKELE VOORBEELDEN VOOR HET GEBRUIK VAN 
DE PIJLEN" 
FOR V=@ TO 1@:GOSUB 690:GOSUB 780:NEXT 
CURSOR @,1:PRINT SPC(6@):CURSOR 14,1:PRINT " UW BEURT NU: 
VEEL SPEELGENOT" 
Z=GETC: Z=GETC 
I-GETC:iIF 2<18 GOTO 340: IF Z>19 GOTO 340:0=2-14-SGN(Z/18) #4 
FOR 2=0 TO 4:180UND 9 @ 15 5 FREQ(4@@+RND (250) ) 
WAIT TIME 2:SOUND OFF :WAIT TIME 2:NEXT 
GOSUB 740:IF L=(-1) GOTO 330: 60508 780 
FOR XX«1 TO R:FOR YY=1 TO B:IF XX=B THEN IF YY=B GOTO 400 
IF ACXX, ҮҮ) <У(ХХ-1) #В+ҮҮ GOTO 330: МЕХТ: МЕХТ: GOTO 330 
PRINT CHR#(12);:COLORT 8 1 0 @:0=@ 
FOR Q!=0.0 TO 10.0 STEP 0. 25:A=25. 0+25. O*BIN(Q!) 1 
PRINT TAB (A) § "FANTASTISCH": NEXT 
POKE #ВА2С, #06: РОКЕ #B9A6, #01 
CURSOR 12,12:PRINT "WIL JE NOGMAALS SPELEN (J/N)":GOSUB 800 
HzGETC:IF H=@ GOTO 440:1F H=74 GOTO 100 
PRINT CHR$(12):CURSOR 15,12:PRINT " JAMMER TOT DE VOLGENDE KEER": 
POKE #75, 29:END 
FOR Z=@ TO B^3*70:NOISE 1 10:0=M:P=N 
Q=RND (4.0) :1Р (+00) MOD 4-1 GOTO 47@:GOSUB 7*6 
IF L=(-1) GOTO 470 
IF XB=@ THEN IF YB=P THEN АХВ, YB)=A(M,N) 2A(M,N) x0: ХВеМ: YB=N: М=0: МеР; 
GOTO 479 
NOISE OFF :GOSUB 780: 00=0: NEXT: RETURN 
COLORT 8 8 8 9:FOR Y=@ TO B:8$2"":FOR X=@ TO BX7:8$z8$4CHR$ (11) NE °’ S=T 
CURSOR TX*1,23-TY-S*Y:PRINT 5%: МЕХТ 
FOR X=@ TO Be7 STEP 7:FOR Y=@ TO (B*3)-1 
CURSOR TX*14X,22-Y-TY:PRINT СНАФ (10) NEXT: NEXT 
FOR X=1 TO B*7*1 STEP 7:CURSOR X+TX,23-TY:PRINT CHR$(25):NEXT 
CURSOR 1+TX,23-TY:PRINT CHR$(21):CURSOR 1+B#7+TX,23-TY:PRINT CHR$(20) 
FOR X=1 TO B*7*1 STEP 7:FOR Ү=20 TO 26-B¥3 STEP -3: 
CURSOR X*TX,Y-TY:PRINT CHR$ (15) sNEXT:NEXT 
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380 FOR Y=20 TO 26-B*3 STEP -3:CURSOR 1+TX,Y-TY:PRINT CHR$(23):NEXT 


599 FOR Y=2@ TO 26-B#Z STEP -3:CURSOR 1+B#7+TX,Y-TY:PRINT CHR$(22):NEXT 
600 CURSOR 1*TX,23-TY-B*S:PRINT CHR$(19):CURBOR TX+1+B#7,23-TY-B#3: 
: PRINT CHRS (18) 
610 FOR Х=8 TO B*7-6 STEP 7:CURSOR X+TX,23-B#3-TY:PRINT CHR$(24) : NEXT 
520 FOR Y=@ TO B*3 STEP 3:ҒОК X=#BFE2-(TY+Y) ##86-TX*#2 TO Х-В%14 STEP -2: 
POKE X,#FFsNEXT NEXT 

630 FOR X*#BFE2-TX#2 TO X-B*14 STEP -14: 

FOR Y=X-TY*##86 TO Y-B*3:486 STEP -%86:РОКЕ Ү,#ҒЕ: МЕХТ: NEXT 
640 COLORT 8 14 8 9:RETURN 
650 FOR ҮҮ=1 TO B:FOR ХХ=і TO В 
560 CURSOR TX*XX*7-4,24-TY-S*YY:PRINT ACKX, YY) 
670 IF A(XX, YY)*s0 THEN CURSOR TX-4*XX*7,24-TY-S*YY:PRINT " " 
680 NEXT: NEXT: RETURN 
699 Q=RND (4,0): 80508 74@:IF Lz(-1) GOTO 490 
790 ХаМ%7-5:Үғ24-3%М 
710 FOR Z=@ TO S:CURSOR X*TX,Y-TY:SQUND 6 © 15 3 FREQ(4@@+RND (200) ) 
720 PRINT C$(Q):WAIT TIME 5:500М0 OFF :WAIT TIME 2 
739 CURSOR X*TX,Y-TY:PRINT " ":WAIT TIME 5:NEXT;RETURN 
740 M=XBsN=YB:IF 0<2 THEN XB=XB+1-SGN(Q)#*2:GOTO 760 
759 YBzYB*1-SGN(Q-2) #2 
760 IF XB«1 OR ҮВ<1 OR XB>B OR YB>B THEN XBzM:YBzN:Lz-1:NOISE OFF :RETURN 
770 A(M,N) «А(ХВ,ҮВ):А(ХВ, YB) =0: L0: RETURN 
780 CURSOR TX+XB#7-4,24-TY-3*#YB:PRINT "  " 
79% CURSOR TX*M*7-4,24-TY- S*N:PRINT ñ(M,N):RETURN 
geo HzGETC: H=GETC: H=GETC: RETURN 








жже Zap fwp Ғәр Ғәр Ғәр fwp fwp fwp fap fwp Жыр Жыр Жыр fwp fwp Жыр fwp Hett 


Heeft U ook wel eens de behoefte gehad om een stuk van de tekst in 
buffer 1 te verwijderen en te vervangen door de tekst in buffer 2 ? 
En plaatste U toen ook markers Gë en 07 om de te verwijderen tekst? 
En een marker 61 om de plaats niet te vergeten, waar de invoeging 
moest gaan plaatsvinden ? En kreeg U toen ook 'MARKERS NOT CORRECT" 
na een vergeefse poging tot "Kill text’? Nu dit is zo gemaakt om de 


vergissingen tussen M en K zoveel mogelijk te voorkomen. Vindt U de 
beveiliging overbodig en misschien zelfs lastig : U kunt er wat aan 
doen. Verander de 66 op adres #966 in een 07 door bv POKE #966,7 en 
uw versie van FWP zal ook met marker 01 een 'Kill' uitvoeren, Maar, 
jammer genoeg moet U nu altijd marker 01 zetten, Vinden we hier een 
oplossing voor zal die direct gepubliceerd worden, 


x3 {ир fwp fwo fwo fwp мр fwp fwp fwp fwp fwp fwp ир fwp fwp fwp fwp xx 
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Making an appearance for the third time in this section 


Very efficient 8080 program of Electronics, an 8080 program is being presented that 
2412 S can compute 32-by-16-bit division and 16-by-16-bit mul- 
multiplies and divides tiplication. However, this subroutine betters its immedi- 
; ate predecessor’s divide and multiply execution times 

by Jerry L. Goodrich [Electronics, March 27, 1980, p. 156] by 75% and over 
Pennsylvania State University, University Park, Pa. i 60%, respectively. Also, this program's 8-by-16-bit mul- 


tiplication subroutine surpasses all others with an execu- 


8080 PROGRAM FOR 32-BY-16-BIT DIVISION 
















LABEL CODE COMMENT 





SOURCE 










































DIV: MOV A, L ; CHECK FOR OVERFLOW 
SUB с 
MOV A H 
SBB B 
RNC ` RETURN ON OVERFLOW 
MOV A, B ; 2'S COMPLEMENT BC 
CMA 
MOV B, A 
MOV A, С 
CMA 
MOV C, A 
INX B 
CALL LOOP . ; DIVIDE INTO HIGHEST-ORDER 3 BYTES OF DIVIDEND 
Loop DIVIDES 3-BYTE DIVIDEND BY 2- BYTE DIVISOR Í 
LOOP: MOV A, D ; MOVE THIRD BYTE TO BE DIVIDED INTO A 
MOV D, E ; SAVE LOWEST-ORDER BYTE DIVIDEND OR HIGHEST-ORDER BYTE QUOTIENT 
MVI Eë ; LOAD LOOP1 COUNTER 
LOOP1: ‘DAD H ; SHIFT DIVIDEND LEFT 
JC OVER ; JUMP IF DIVIDEND OVERFLOWED HL 
ADD A 
JNC SUB 
INX H ` ; CONVEY CARRY IF THERE 
„SUB: PUSH H ; SAVE HIGHEST-ORDER 2 BYTES OF DIVIDEND 
DAD B ; SUBTRACT DIVISOR 
JC OK ; JUMP IF NO BORROW 
POP H : UNSUBTRACT IF BORROW 
DCR E ` UPDATE LOOP1 COUNTER 
JN2 LOOPI ; LOOP UNTIL DONE 
MOV EA ; PUT BYTE OF QUOTIENT IN E 
STC | 
RET 
OK: INX SP ; CLEAN UP STACK 
INX SP 
INR A ; PUT A 1 IN QUOTIENT 
DCR E ; UPDATE LOOP1 COUNTER 
JNZ LOOP1 LOOP UNTIL DONE 
MOV E, A ; PUT BYTE OF QUOTIENT IN E 
STC 
RET | 
OVER: ADC A ; FINISH DIVIDEND SHIFT, PUT 1 IN QUOTIENT 
JNC OVERSUB 
| INX H ; CONVEY CARRY IF THERE 
OVERSUB DAD B ; SUBTRACT DIVISOR 
DCR E ; UPDATE LOOP1 COUNTER 
JNZ LOOP1 ; LOOP UNTIL DONE 
MOV E, A. ; PUT BYTE OF QUOTIENT IN E 
STC 






RET 
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LABEL SOURCE CODE 


MULT: MOV А, E 
PUSH D 
CALL BMULT 
XTHL 
PUSH 
MOV A, H H 
CALL BMULT ; 
MOV А E 
POP Я 
ADD : 
MOV ; 
JNC . ; 
INR Н 
MOV I i 
MVI 

POP : 
DAD ; 
RNC 
INX А 
RET 


PSW 


; BMULT PERFORMS A 1-BYTE BY 2-BYTE MULTIPLY 

; ZERO PARTIAL PRODUCT 

;D = 0, E = BIT COUNTER 

; GET FIRST MULTIPLIER BIT 

; ZER0-SKIP 

; ONE-ADD MULTIPLICAND 

; ADD CARRY TO THIRD BYTE OF PRODUCT 
; SHIFT PRODUCT LEFT 


LXI H, 0 
LXI D, 7 
ADD A 
JNC ZERO 
DAD 
ADC 
DAD 
ADC 
DCH 
JNZ 
RNC 
DAD 
ADC 
RET 


BMULT: 


LOOP! 


tion time less than half that of its larger counterpart. 
The program works with 3 bytes of the dividend or 
product at a time to improve the execution time, which is 
the most appropriate measure of program efficiency. 

The divider program works much like ordinary long 
division of a four-digit decimal number by a two-digit 
number. The divide routine of the program stores the 
dividend in registers HL-DE and keeps the most signfi- 
ciant digits in HL. The divisor is for the operation placed 
in register pair BC. The quotient from the division builds 
up in DE with the remainder placed in HL. For a quotient 
that is longer than 16 bits, the carry flag is cleared in 
order to indicate an overflow. The worst-case execution 
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8080 PROGRAM FOR 16-8Y-16-BIT MULTIPLICATION 


COMMENT 


; LOAD LOWEST-ORDER BYTE OF MULTIPLIER 

: SAVE HIGHEST-ORDER BYTE MULTIPLIER 

; DO 1-BYTE MULTIPLY 

: SAVE LOWEST-ORDER BYTES PRODUCT, GET MULTIPLIER 
‚ STORE HIGHEST-ORDER BYTE OF FIRST PRODUCT 

LOAD HIGHEST-ORDER BYTE OF MULTIPLIER 

DO SECOND 1-BYTE MULTIPLY 

POSITION HIGHEST-ORDER BYTE OF PRODUCT 

GET HIGHEST-ORDER BYTE OF FIRST PRODUCT 

UPDATE THIRD BYTE OF PRODUCT 

AND PUT IT IN E 

DON'T INCREMENT 0 IF NO CARRY 

INCREMENT D IF CARRY | 

RELOCATE LOWEST-ORDER BYTES OF SECOND PRODUCT 


GET LOWEST-ORDER 2 BYTES OF FIRST PRODUCT 
GET FINAL PRODUCT LOWEST-ORDER 2 BYTES 
DONE IF NO CARRY 

OTHERWISE UPDATE HIGHEST-ORDER 2 BYTES 


; DECREMENT BIT COUNTER 
; LOOP UNTIL DONE 

; DONE IF NO CARRY 

; OTHERWISE DO LAST ADD 


; AND RETURN 


time for the divide routine is 1,745 clock cycles. 

In the multiplication routine, the multiplicand is 
stored in BC and the multiplier in DE. The result appears 
in registers DE-HL with the most significant digits being 
placed in DE. The execution time is 1,023 clock cycles. 

For the 8-by-16-bit multiply routine, the 8-bit number 
is placed in register A and the 16-bit number in BC. The 
result then appears in A-HL with the high-order byte 
being placed in A. The worst-case execution time for this 
subroutine is 424 clock cycles. n 


ا ا 
Engineer's notebook is a regular feature in Electronics. We invite readers to submit original‏ 
design shortcuts, calculation aids, measurement and test techniques, and other ideas for `‏ 

saving engineering time or cost. We'll pay $75 for each item published. 








REM ## CALCULUS  V.2 жн 

REM ##* 9 sous-programmes de calcul жж 

REM 3s3«x — AUTEUR:F.LEMDINE ` NOVEMBRE 1982 sx 

MODE @:PRINT CHR$(12):COLORT 12 10 3 1:REM fond bleu clair 

POKE #74,1:POKE #75,32:REM Efface le curseur 

POKE #BCCA,#C3:REM 17" ligne -couleur rouge 

FOKE ЯВВ59,%ЗА:КЕМ moyenne definition 

POKE #BB39,#DA:CURSOR 2, 14: PRINT "CALCULUS": КЕМ 14^ligne-couleur oran 


POKE #B921,#4A:POKE #В926, #01: CURSOR 3,10:PRINT "V.2":REM basse defin 


ition-1@’ ligne-couleur bleu fonce 


100 POKE #B89A,#CC:REM 9?"ligne-couleur bleu clair 

110 CURSOR 45,8:PRINT "space" 

120 CALLM #D4DA:REM attend le space 

130 PRINT CHR$ (12): MODE @:COLORT 12 6 15 S:POKE #74,1:POKE #75,4:REM curs 
eur:triangle 

146 PRINT TAB(10)5"C AL CU L U 5  V.2":PRINT 

150 PRINT TAB(4):PRINT "P.G.C.D. de deux nombres 1" 
150 PRINT TAB(4):PRINT "triangle de Pascal 2" 
170 PRINT TAB(4):PRINT "somme des n premiers nombres 3" 
186 PRINT TAB(4):PRINT "nombres de Fibonacci 4" 
199 PRINT TAB(4):PRINT "factorielle 9" 
200 PRINT TAB(4):PRINT "carre magique:nombre impair de cote 5" 
210 PRINT TAB(4):PRINT "calcul des angles d'un triangle 7" 
220 PRINT TAB(4):PRINT "moyenne.,variance et ecart-type g" 
259 PRINT TAB(4) :PRINT "equation du 1 er et du 2e degre 9" 
240 PRINT ` INPUT "QUEL EST VOTRE CHOIX":H 

250 IF Н-д.Ә OR Н>9.0 THEN GOTO 246 

260 COLORT 14 0 5 4:POKE #74,@:POKE #75,4 

270 ON H GOSUB 340, 444,590, 620, 760, 800, 1030, 1140, 1580 

286 PRINT :PRINT " pour continuer/retour au menu/terminertC/R/F1" 
290 G=GETC:IF 6G-0.0 БОТО 290 

300 IF G=ASC("C") THEN 270 

310 IF G=ASC("R") THEN 150 

320 IF B-ASC("F") THEN PRINT CHR#(12):END 

330 IF Б<>А5С ("С") AND G<>ASC("F") AND G<C>ASC("R") THEN 280 

340 H=1:PRINT CHR$(12):PRINT TAB(15)3"P.G.C.D de deux nombres" 

350 PRINT TAB(15);"par l'algorithme d'Euclide":PRINT 

360 INPUT "nombre 1"sA!:PRINT :INPUT “nombre 2";H! 

370 IF A!=0.0 OR B!=9.@ THEN PRINT " ##*pas de ZERO s.v.px##":GOTO 340 
380 IF A'2B! THEN C'=A!:A'=B!:Bt=C! 

390  G'-INT(A!/B!) 

400  R'-A'!-B'xQ' 

410 IF R!<>0.@ THEN A'=B!:B'=R!:G0TO 590 

420 . V-B':PRINT :PRINT "P.G.C.D = "5 

430 RETURN 

440 PRINT CHR#(12):CLEAR 1500 

450 PRINT "triangle de Pascal" 

460 PRINT : INPUT "nombre de lignes ou de colonnes jusque 16"5N:PRINT 
470 IF М-1.0 THEN PRINT " x«xCE NEST PAS SERIEUX##":60TO 460 

48e IF N>14.@ THEN PRINT :PRINT "pas au-dela de 14 s.v.p!":GOTO 450 
490 DIM A(N,N) 

500 PRINT CHRS(12):A(1.0,1.@)=1.@:CURSOR @,22:PRINT A(1.0,1.0) 

518 FOR I'=2.0 TO N 

920 FOR J'=1.0 TO I! 

930 A(I!,J!')=B(I!-1.0,J!')+AR(I!-1.@,J!-1.0):NEXT:NEXT 

540 Z=1:FOR Y!=21.@ TO 2.0 STEP -1.3:Z=Z+1:IF Z>N THEN 580 

550 FOR X!=@.@ TO 59.0 STEP 5.@:CURSOR X!,Y!:K=K+1 

552 IF K>Z THEN 570:PRINT A(Z,K):NEXT X! 

570 К=0:МЕХТ Y! 

589 H=2:RETURN 

590 =3: PRINT CHR$(12):PRINT ТАВ (7); "somme des n premiers nombres" 
600 PRINT : INPUT "jusque combien"3;N:S=0:FOR I!'-1.9 TO N:S=S+I! 
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5610 МЕХТІРКІМТ :PRINT "SOMME= "35:PRINT :RETURN 
620 H=4:PRINT CHRS(12):PRINT TAB(15); "nombres de Fibonnaci":PRINT 
59 PRINT "chaque nombre est egal a la somme " 
640 PRINT "des deux precedents  ":PRINT 
650 INPUT "combien de nombres jusqu'a 91: "5N!:PRINT 
&60 IF N!>91.@ THEN PRINT "Pas au-dela de 91 s.v.p":GOTO 458 
879 = F6!-0.0:F2!-0.0:F1!-1.0:FOR I!=1.@ TD N!:F2!=F1!+F@!:PRINT F2!,:F@!=F 


1!:F1!=F2! 
686 NEXT I':PRINT :PRINT 
690 RETURN 


700 H=S:PRINT СНЕФ (12): INPUT "factorielle d'un nombre "; 

710 IF A>=20 GOTO 740 

720 F!=1.0@ 

730 FOR I'=1.0 TO ñA:F!=F!+#I!:NEXT I!:PRINT :PRINT Aj" ! z"SF':RETURN 

740 = BB =(LOGT (A) -LOGT (EXP (1.0) ) ) «Ан ОБТ (2. O#PI#A) /2.0 

75909  DC'ZINT(B!?:D!-106.0^(B!-C!) 

760  E!'-(1.0/12.0*(1.0/288.0-1.0/373.0/0) /A)/A 

770 Fi!i=D!+D!*E! 

780 PRINT : PRINT TAB(iS):PRINT "factorielle par approximation :4 decimale 


s ":РКІМТ TAB(S) PRINT AS"! ="SF's" E "$C! 

79@ RETURN 

860 PRINT CHR$(12):PRINT "carre magique pour un nombre impair de cotes ju 
sque 15" 


810 CLEAR 1200 

820 PRINT :INPUT "nombre de cotes"iN! 

850 IF N'=1.@ DR N!/2.0-INT(N!/2.0) THEN PRINT SPC (3)5 "nombre non accept 
e-recommencez 5s.v.p":GOTO 810 ; 
840 IF N!>15.0 THEN PRINT SPC(5)i"pas au-dela de 15 je vous prie":GOTO 82 
e I 

850 IF N!>=7.0 THEN PRINT " *###patientez un instant je vous prier" 
860° DIM A(N!,N!) 

870 M!I=INT(N!/2.0)+1.0 
' 880 FOR I!-1.0 TO N!:FOR J'=1.0 TO N!:A(I!,J!)=0,QO:NEXT J!:NEXT I! 

899 К!=]1.б:1!=М!+1.0:0'<М!:А(1!,1')=51.0 

900 K!=K!+1.0 

910 IF K'2N'xN! THEN 1000 

920 IF 1!+1.@°N! THEN ['=0.0 

956 IF 1'+1.9<=0.0 THEN І!-М!-1.0 

940 IF J'+1.03N! THEN J'-0.0 

950 IF 1141.0<-0.0 THEN J'=N!-1.0 

960 IF A(I!+1.0,J!+1.0)=0.0 THEN 980 

979 I'=I!+1.@:J!=J!-1.@:BOTU 920 

980 I!=I!+1.0:J!=J!t+1.,O@ 

999 — A(O!,J!)-K!':60T0 900 

1000 PRINT :FOR I!=1.@ TO N!:PRINT :FDR J'-1.0 TO N!:PRINT A(I!,J!) 5: NEXT 
Jd':NEXT I! 

1016 FOR J'=1.0 TO N':5-S*4A(1.0,J! NEXT: PRINT :PRINT SPC(20) 5 "SOMME =";5 
1020 Н=6: RETURN 

1030  H-7:PRINT CHR$(12):PRINT "calcul des angles d'un triangle:soit a,b,c 
les trois cotes" 

1040 PRINT :INPUT "premier cote";A! 

1050 PRINT :INPUT "second cote";B! 

1060 PRINT :INPUT "troisieme cote";U! 

1070 IF ñ!<=0.0 OR B!<=0.@ OR С!<=0„0 THEN PRINT :PRINT "impossible- veuil 
lez recommencer": БОТО 1940 

1086 CA'-(B'^2.040!^2.0—-0!^2.0) / (2. O*B'! &C'! ) 

1090 IF СА!>1.@ OR СА!< (-1.0) THEN PRINT :PRINT "ce triangle n'existe pas" 
: RETURN 

1100 CB'-(A'^2.040!^2.0—B!^2.00/ (2. O*A' XC! ) 

1110 AA'=ACOS(CA!) #182. 0/PTI 

1120 BB'-ACUS(CB!) 180. 0/PI: CC! 180. 0-AA! -ВВ! 


1130 PRINT :PRINT "а= ";A!';SPCC3)3"b- "SBISSPC(S)5"c= "3C! 

1140 PRINT "angle A= "SAA':PRINT :PRINT "angle B= "3BB!:PRINT :PRINT "angl 
e C= "ECG! 

115@ RETURN 


1160 H=8:PRINT CHR$(12):PRINT "calcul de moyenne, variance et ecart-type" 
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